unit MyDatabase;

{$mode objfpc}{$H+}

interface

uses {Classes, SysUtils,} {sqlite3ds,} MyTypes;

type

TdbServer = class
private
protected
public
  procedure SetTo(Server:TNNTPServer);
  function GetFrom():TNNTPServer;
  constructor Create();
end;

{TdbGroup{s?} = class
private
protected
public
  procedure SetTo(Group{s?}:TGroup{List?});
  function GetFrom():TGroup{List?};
  constructor Create();
end;

TdbMessage{s} = class
private
protected
public
  procedure SetTo(Message{s?}:TMessage{List?});
  function GetFrom():TMessage{List?};
  constructor Create();
end;}

{var

TServer: TSqlite3Dataset;}

implementation

constructor TdbServer.Create();
begin
end;

procedure TdbServer.SetTo(Server:TNNTPServer);
begin
  {TServer.AppendRecord([Nil, Server.Name, Server.Port, Server.Username, Server.Password]);
  TServer.ApplyUpdates;}
end;

function TdbServer.GetFrom():TNNTPServer;
begin

end;


{
constructor TdbGroup{s?}.Create();
begin
end;

procedure TdbGroup{s?}.SetTo(Server:TNNTPServer);
begin
  {TServer.AppendRecord([Nil, Server.Name, Server.Port, Server.Username, Server.Password]);
  TServer.ApplyUpdates;}
end;

function TdbGroup{s?}.GetFrom():TNNTPServer;
begin

end;



constructor TdbMessage{s?}.Create();
begin
end;

procedure TdbMessage{s}.SetTo(Server:TNNTPServer);
begin
 { TServer.AppendRecord([Nil, Server.Name, Server.Port, Server.Username, Server.Password]);
  TServer.ApplyUpdates;}
end;

function TdbMessage{s}.GetFrom():TNNTPServer;
begin

end;
             }
end.


